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FOREWORD 

This manual is intended as a guide in learning how to program the 
upper 3000 computer systems. It includes a hardware concept of 
the systems, the use of the COMPASS programming language, and 
the use of the SCOPE monitor. Step-by-step example problems, with 
and without given solutions, are included to develop the capability of 
using the language. 

This manual is a major revision to and a replacement for the 3600 
Computer System COMPASS Programming Guide and retains the 
same publication number. It is now expanded to three volumes. 



Volume I 



This volume consists of three sections. The 
first section deals with the introduction to the 
systems. The second section deals with the 
central processor. The third section deals with 
problem-oriented exercises in which random 
instructions are picked to solve problems. 



Volume II 



This volume consists of one section. The 
instruction repertoire is divided into groups. 
Groups 1-18 are hardware instruction groups, 
and groups 19-25 are pseudo instruction groups. 
Each group is followed by explanations of new 
concepts and problems designed to use instruc- 
tions from the group. 
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Volume III 



This volume consists of two sections. The 
first section deals with the SCOPE system. It 
shows how to run jobs under the system and 
explains new concepts such as overlay process- 
ing and library preparation. The second section 
contains several computer output listings obtain- 
ed as a result of running the example problems 
under SCOPE. 
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SECTION I 

SYSTEM SOFTWARE 

THE SCOPE SYSTEM 

SCOPE stands for Supervisory Control Of Program Execution. It is frequently referred 
to as the Monitor of the upper 3000 systems. The Scope Monitor provides a system of 
operator and programmer aids to simplify the operator's job and increase through-put. 
By having a monitor for the system, operator errors, operator intervention, and amount 
of computer time are minimized. 

Other features of the monitor include job stacking, equipment allocation, recovery and 
debugging aids, interrupt processing, overlay processing, and library preparation. 
Many of these features are explained as we go along. 

Monitor operations are specified in a job by use of control statements and programming 
requests. Control statements have the following card format: a 7, 9 punch in column 1 
and a statement name beginning in column 2 with parameters separated by commas 
following. Control statements are free-field, but must be contained on a single 80 
column card. No terminating character is needed. Programming requests are written 
as system macros and are assembled into a calling sequence to a Scope routine. This 
will be explained in detail later. 

A job includes all operations indicated between JOB cards, or, if one job, between the 
JOB card and ENDSCOPE card. Each job is terminated with an end-of-file card. 
End-of-file cards are also used to separate runs within a job. If more than one job is 
to be processed, jobs are placed together (job stacking) with the ENDSCOPE card at 
the end of the last job. If jobs are stacked, SEQUENCE cards with sequence numbers 
are inserted just before each JOB card so that, if the stack was on tape, the nth job 
could be read, compiled, and executed bypassing the others. 

Within a job other control cards determine what the monitor is to do. A COMPASS card 
directs the monitor to read the Compass assembler from the library into core storage. 
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A LOAD card directs the loader to load the binary object program into core storage. 
A RUN card directs the monitor to execute the object program. 

In general, then, a job might look like this: 
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This constitutes a Compass assembly in which the object program is loaded and executed. 
If the program is to read and process data cards, the data cards would be inserted be- 
tween the RUN card and the end-of-file card/ 88 ) . 

UNIT SPECIFICATION 

Before each statement is taken separately, it is necessary to understand how units are 
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units have been discussed up to this point. A programmer references these units by 
specifying the proper data channel number, the proper controller number, and the proper 
unit number. If the specified unit is down (not operable), he must attempt another. This 
method requires that the programmer know the hardware configuration and be well vers- 
ed in the hardware use of the system. To alleviate the problem a method has been devis- 
ed to help the programmer program units without having to know the intimate intricacies 
of the hardware system. Instead of referencing physical units, he references logical 
units. 

Logical units are specified by numbers ranging from 1-80. These units are independent 
of the physical units in the system. No channel, controller, or hardware designate is 
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necessary. Scope automatically equates a logical unit to a physical unit in the system - 
one which is up (operable). If the same logical unit is specified later in the program 
(e. g. to read back data), the same equated physical unit will be referenced. 

The logical units are composed of three classes: 

1. Programmer Units 1-49 

2. Scratch Units 50 - 59 

3. System Units 60-80 

Programmer Units 

The programmer units are assigned throughout the job for reference by the program. 
The programmer may choose any number within the range. He must use the same 
number if he wishes to re-reference the same unit. These units can be saved at the 
end of a job and they will be available for reuse in a later job. 

Scratch Units 

The scratch units may be referenced at any time by the programmer. However, they 
are released after each execution and may not be saved. 

System Units 

The system units are assigned by the monitor system. They can be used by the monitor 
or by the programmer. The definitions of the system units are now given. 

The Standard Input unit is logical unit 60. This unit contains the job stack. Normally 
it is assumed to be magnetic tape, but it may be a card reader. Card images are re- 
presented on tape as either binary or BCD records. Each control card (binary) is 
recorded as one binary record on tape. Each binary record contains 160 frames. Each 
program card (BCD) is recorded as one BCD record on tape. Each BCD record contains 
80 frames. Data cards may be either binary or BCD. 
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The Standard Output unit is logical unit 61. This unit contains the listable output such 
as the source deck, memory map, and program generated answers. Normally it is 
assumed to be magnetic tape, but it may be the line printer. Output is recorded as 120 
characters per record. Recording format is always BCD. 

The Standard Punch unit is logical unit 62. This unit contains the binary object deck. 
Normally it is assumed to be magnetic tape, but it may be a card punch. Card images 
are recorded on tape as binary records each card forming 160 frames of information. 

The Standard Input Comments unit an d Standard Output Comments unit are logical units 
63 and 64 respectively. Normally'they are assumed to be the typewriter. These units 
allow the operator to communicate with the system through interrupt control. 

The Standard Accounting unit is logical unit 65. This unit contains the job statements 
and the time used by each job. This can be used for billing purposes to users of the 
system. 

The Standard Load-and-Go unit is logical unit 69. This unit contains binary object 
programs. If an execution is to be performed, the information is loaded and run. This 
unit is normally magnetic tape. Output is recorded in binary format with 160 frames 
to each record. The writing of this tape usually means an execution of the program is 
desired. 

The Standard Library unit is logical unit 70. This unit contains the Scope library. It 
includes the Scope Monitor, the Fortran compiler, the Cobol compiler, the Compass 
assembler, and the object time routines, just to name a few. 

Logical units 66, 6 7 and 68 are Scope reserved units. Any attempt to reference these 
units will cause the job to terminate abnormally. 

Logical units 71-79 are auxiliary library units. These are magnetic tapes and are 
prepared using PRELIB. More about this is given at the end of this section. 
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SCOPE CONTROL STATEMENTS 

Scope controls each job as it is processed. Through the use of control cards the pro- 
grammer can see to it that the job is m.onitored during compilation and execution. 
Safeguards are taken so that the com.puter is not caught in an endless loop or that an 
output tape is not destroyed by a following job. 

In order for Scope to perform the right operation at the right time it is im.portajit for 
the programmer to follow the proper field designations per control card and to see to 
it that the control cards are in the proper order. 

A control card is a binary card which has a 7, 9 punch in column 1. Beginning in 
column 2 the statement name is given followed by parameters separated by com.mas. 

The first set of control cards given are: 

1. SEQUENCE 

2. JOB 

3. COMPASS 

4. SCOPE 

5. LOAD 

6. RUN 

7. END-OF-FILE 



FORM: 



The SEQUENCE Control Statement 



LOCATION DPERATK)N,MODIfeS 



iM< 




ADDRESS FIELD 



COMMENTS 



The SEQUENCE control statement assigns a job sequence number, n, to the following 
job. When this statement is encountered, saved tapes, programmer units, scratch 
units, and the load-and-go unit are released. Released tapes that are not unloaded 
are available to the next job. 
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FORM: 



The JOB Control Statement 



LOCATION 



l)PERATN]N,MOOIFIERS 



ADDRESS FIELD 



COMMENTS 
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All programs submitted for processing under Scope start with a JOB statement which 
signals the beginning of a job, provides accounting information for the installation, 
identifies the programmer, and sets a job processing time limit. 

The parameters of the statement are defined as follows: 

c the charge number: it may be an unlimited number of alpha- 

numeric characters. 

i the programmer identification: 

it may be any length and appears as given 
in the control card listing; it is truncated 
to 6 characters for operation identification 
or tape labels, 

t the maximum time limit: the maximum in minutes allowed for the 

entire job including operator functions. 
No job may exceed 22 36 minutes; if blank, 
the maximum time is assumed. 

The job is terminated if the c and i fields are not present. A single JOB card may be 
used for any number of independent programs; however, the time specified is the 
maximum allowed for the combined programs. 
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be produced on unit 69 (standard load -and -go). 

L = u List option where u may assume values 1-49 or 61; if the parameter 
is absent, no listing will be produced. If only L appears, the list- 
ing will appear on unit 61 (standard output). 

Y = u Cosy input medium where the logical unit u may assume values 

1-49 or 60; if the parameter is absent, input from unit 60 (standard 
input) is assumed. 

B = u Hollerith output where u may assume values 1-49 or 62; logical 

unit u must be specified. If the C option is specified, the B option 
is ignored. 

R List cross reference symbol table on unit 61 (standard output). 

M List programmer macros. The source card images of the pro- 

grammer macros are listed when the macros are called. The 
source card images of generative coding is also listed. 
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The COMPASS Control Statement 



FORM: 



LOCATION 



j£MiAs^ 



llPERifflON.MODIfeS ADDRESS FIELD COMMENTS 






The COMPASS statement is one of several program name statements representing 
compilers or assemblers. Other examples that are included in this category are; 
FORTRAN, COBOL and ALGOL. The purpose of a program name statement is to 
call the compiler or assembler from the library tape, read it into core, and turn 
control over to it. The cards following the program name statement must be in the 
format which is unique to its language. 

Column 1 of the control card contains punches in rows 7 and 9. Starting in column 2, 
the word COMPASS appears, followed by a comma and up to 9 free field parameters 
separated by commas. The 9 parameters are options that may have different forms 
or are left out entirely. The 9 options are; 

I = u Hollerith input medium where the logical unit u may assume 
values 1-49 or 60; if the parameter is absent, input from unit 
60 (standard input) is assumed. 

P = u Punch option where the logical unit u may assume values 1-49 
or 62; if the parameter is absent, no binary output will be 
produced on unit 62 (standard punch). 

C = u Cosy output option where the logical unit u may assume values 
1-49 or 62; if the parameter is absent, no Cosy output will be 
produced. If only C appears. Cosy output will be produced on 
unit 62 (standard punch). 

X = u Binary output for load-and-go unit where u may assume values 
1-49 or 69; if the parameter is absent, no load-and-go tape will 
be written. If only X appears, binary output for load-and-go will 
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The SCOPE Statement 



FORM: 



LOCATION 



QifRi(TKW,MODrERS 



ADDRESS FIELD 



COMMENTS 






Sc p p e 



The SCOPE statement terminates the assembly or compilation process and causes 
the return of control to the Scope Monitor. The SCOPE card begins in column 10. 
This statement is not really a Scope control statement in a true sense. This statement 
is actually read by the assembler. 
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FORM: 



The LOAD Control Statement 



LOCATION 


VERATKHMOOriERS 


ADDRESS FIELD 


COMMENTS 
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The LOAD statement will cause the loader to load relocatable binary subprograms 
into storage from programmer units or the load-and-go unit. The unit u is a logical 
unit number having values 1-49 or 69. If u is omitted (also comma), the standard 
load-and-go unit (69) is assumed. 

When the LOAD statement is encountered. Scope backspaces unit u one file and loads 
subprograms until an end-of-file, two transfer cards, or another control card is 
encountered. If the unit cannot be backspaced. Scope immediately loads the sub- 
programs. Scope interprets a second transfer card as a loader terminator, but it 
is not required. If binary subprograms, transferred from the standard input unit 
and produced by compilation or assembly, are stored on the same logical unit during 
the job, only one end-of-file mark will be present and it will follow the last subprogram 
stored on the unit. 
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The RUN Control Statement 



FORM: 



LOCATION 



OFERXnOKMOOfOS 



ADDRESS FIELD 



COMMENTS 



lMfJ,U 



F^ 



n^js^lQ, 



The RUN statement initiates program execution by transferring control to the object 
program in sotrage. This statennent is required to execute all object programs. 

The parameters are defined as follows: 

t the execution time limit in minutes (maximum 2236). The entire 

job is terminated if the limit is exceeded. If t is blank, a constant 
time limit, determined by the installation, is used. If the run 
time limit is greater than the remaining job time limit, execution 
continues only until the job time is depleted. The run limit may 
not equal zero. 

p the maximum number of print or write operations which may be 

requested on the standard output unit during the execution. This 
includes debugging dumps and any other output during execution. 
The entire job is terminated if the print limit is exceeded. If the 
print limit is blank, a constant print limit, determined by each 
installation, is used. The print limit may not equal zero. 

r the recovery indicator specifies an area to be dumped if the 

program does not proceed to normal completion. The recovery 
dump is written on standard output (unit 61) and uses the following 
indicators: 
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r dumped area 

or blank console 

1 program and console 

2 labeled common and console 

3 program, labeled common, and console 

4 numbered common and console 

5 program, numbered comnnon, and console 

6 labeled common, numbered common, and 

console 

7 complete area used except resident Scope 

m the memory map indicator. If m is blank, storage allocations 

after loading will be listed on the standard output unit. No map 
is written if m is any other character. 

d dump indicator. A dump is to be taken after normal termination 

of the program if d is not blank. 

A RUN statement is used after a LOAD statement or after a binary program on 
standard input (unit 60). 
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The END-OF-FILE Statement 



FORM: 



LOCATION 


WERATION,IMDfeS 


ADDRESS FIELD 


COMMENTS 
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The END-OF-FILE statement is required to separate jobs and is frequently used 
to separate runs within a job. A 7, 8 multiple punch represents a 17g code in BCD. 
This is an end-of-file mark on tape. 

If fatal errors occur during assembly or compilation of a program, loading is not 
attempted- Subsequent assemblies or compilations of programs in the job are pro- 
cessed, however, if the program name control statement is preceded by an end-of-file. 
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EXAMPLES OF DECK STRUCTURE 
1 ) Assembly of a COMPASS routine 
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In this job the prograninner is interested in obtaining a listing of the source program 
with any assembly errors. 

The job is called MINTAX, has a control number of 54587, and will assemble for 
a maximum of 10 minutes. When the COMPASS card is read by Scope, the CARD 
is scanned to the first comma. Recognizing it as a COMPASS control card. Scope 
will read the Compass assembler into core and turn control over to it (exit Scope - 
enter Compass). Compass then scans, interprets, and assembles all cards until 
the Scope card is read. When it is scanned, control is turned back to Scope (exit 
Compass - enter Scope), which reads the next card. The end-of-file is read by 
Scope. The card after the end-of-file might be another JOB card if jobs are stacked. 

2) Assembly and execution of a COMPASS routine 
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In this job the programmer is interested in obtaining a listing of the source program 
with any assembly errors. He also wishes execution if no assembly errors occur. 

The job is called MORTGAGE, has a control number of 7065-1, and has a maximum 
time of 15 minutes for assembly and execution or 10 minutes for execution. The 
Scope Monitor reads the JOB card and processes the parameters. Upon encountering 
the END card, the source program is listed on unit 61 with errors, if any. The object 
program (relocatable binary) formed from the source program is then recorded on 
unit 69. 

The next card read is SCOPE This card transfers control back to the monitor, which 
reads the next card. The LOAD card directs the loader to read unit 69 (since no unit 
specified) into core destroying the assembler (not needed anymore). 



When the RUN card is read. Scope extracts the paraxneters. The execution time limit 
is extracted and compared with the remaining time left from the limit on the JOB card. 
Whichever is less at this point is the effective time limit used for the remainder of the 
job. The maximum print limit is recorded and the recovery indicator is set. Program 
control then goes to the transfer address of the loaded program and execution begins. 

When the program is finished (assuming no errors), control goes back to Scope which 
reads the end-of-file, and the job is finished. 

3) Assembly and execution of a COMPASS routine with Cosy output. 
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This job consists of an assembly and execution of a Compass program having data 
cards to be processed during the execution portion. The data cards are within the 
job and are read from standard input (unit 60). 

The programmer is interested in obtaining a listing of the source cards and an output 
of source in Cosy format. The Cosy output goes to logical unit 20 and can be saved 
(shown later) for a later job. 

The relocatable binary formed from the assembly of the program is output to unit 10. 
When the assembler transfers control back to the monitor through the use of the SCOPE 
card, the monitor loads unit 10 into core. The RUN card is read by the monitor and 
execution is initiated. 

The data cards are next on standard input and they are read from unit 60 by the Compass 
program, processed, and the results output on unit 61. The data cards are read up to 
but not including the end-of-file. When the program is finished, control is given back 
to Scope. Scope reads the end-of-file and goes on to the next job. 

4) Execution of a job with no assembly. 
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In this case the binary object program (a relocatable binary deck) is inserted in the 
job. It has the same form as was output to the load-and-go unit during the assembly 
of Compass programs in the previous example. 

Scope reads the JOB card and records the parameters. Upon encountering the relocat- 
able binary deck, the Scope loader immediately loads it into core from standard input. 
The RUN card is read, parameters processed, and execution of the program begins. 
When the program is finished, control is transferred to Scope which reads the end-of- 
file. 
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5) Assembly and execution of multi-jobs. 
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These jobs processed together are the same type used previously except the SEQUENCE 
card with its number is shown. SEQUENCE cards are usually given when there is more 
than one job to be processed. SEQUENCE cards go just before the job that they repre- 
sent. 



1-18 



SYSTEM MACROS 



In the previous section we discussed programmer macros. We found that programmer 
macros are defined by the programm.er at the beginning of the subprograim., and then 
are called at various places within the subprogram. Each time they are called the 
macros are assembled with possible parameter substitutions. 

At this time we introduce another type of macro - the SYSTEM MACRO. The system 
macro uses the same idea as used with the programmer macro, except that the system 
macro is already defined, A system macro exists on the library tape and can be called 
by a calling sequence in the form of a macro. The standard definition of a macro is 
set, and any programmer wishing to incorporate (call) the macro into his program naust 
know and follow the format of the macro call precisely in order to have it inserted into 
his program. 

Before we discuss how the system macros can be incorporated and used in a Compass 
subprogram, let's first define what they are and how they're formatted. The first half 
will include the l/O requests and the second half will include all other requests. 
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FORM: 



The MODE Request 



LOCATION 


H>ERATION,MODIFeS ADDRESS FIELD 


COMMENTS 




' l'\'i'\' i*i' \> 


1 






...i.. L..i : 


t\^a£ . : K.u,, rd.,s^,.i,d^(i,r:l . : : 






-J ^,..^_.J L..._i_.. _ 


^_:__' .^^i_jjj__i::^: .■■ _j 







The MODE request defines the operating or recording mode of a tape unit. The 
request will only be performed if the unit is available for use. If available, the 
request will be honored and program control will continue to the next Compass 
instruction. If unavailable , program control will go to the reject address. In effect, 
this request is similar to the hardware EXTF instruction. The parameters for this 
instruction are defined as follows: 



Parameter 



Meaning 



u 



Logical unit number 



2. 
3. 



ra 



Reject address 

Specifies an operating condition for the 
unit. The allowable parameters are; 



a. RW (read and write) - all legal 
requests will be performed. 

b. BY (bypass) - all requests except 
STATUS or MODE will be treated as 
no operation until the end of the job. 
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c. RO (read only) - WRITE, WRLABEL, 

WEOT, MARKEF, or ERASE requests 
will be rejected. 

f Specifies the format of the unit. The 

allowable parameters are; 

a. BCD - Binary coded-decimal 

b. BIN - Binary 

d Density. The allowable parameters are; 

a. HY - hyper density (800) 

b. HI - high density (556) 

c. LO - low density (200) 

d. OP - operator, use density of 

mounted tape. 

dr Direction of tape. If not specified, normal 

is assumed. The allowable parameters are; 

a. ND - normal direction for READ 

or BSPR requests. 

b. RV - reverse direction for the 

READ or BSPR requests. 
Data is stored according to 
the control word specification 
with no alteration. 



1-21 



The READ Request 



FORM: 



LOCATION 



OPERATIQN,M(niFIERS 



ADDRESS FIELD 



COMMENTS 



.,R£A-0- 



j(ilA^ i tllJjlL^ 1 Clfti, jL Ij) a 



The READ request activates a buffered read from logical unit u. If the unit is 
available, the read is initiated and program control goes to the next Compass 
instruction. If the unit is unavailable, program control transfers to the reject 
address. 

When the read operation is completed or an abnormal condition occurs, control 
transfers to the interrupt subroutine at the interrupt address. If no interrupt address 
is specified, no interrupt will take place to the interrupt subroutine. 
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The WRITE Request 



FORM: 



LOCATION 



[lPERATH)N,MODiFIERS 



ADDRESS FIELD 



COMMENTS 



WfcCjlL, 



lti-'*i».ifeiV'jftit- 



The WRITE request activates a buffered write on logical unit u. If the unit is 
available, the write is initiated and program control goes to the next Compass 
instruction. If the unit is unavailable, program control transfers to the reject 
address. 

When the write operation is completed or an abnormal condition occurs, control 
transfers to the interrupt subroutine at the interrupt address. If no interrupt address 
is specified, no interrupt will take place to the interrupt subroutine. 
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The REOT Request 



FORM: 



LOCATION 


[)P£RJ(TnN,MODIFIERS ADDRESS FIELD 


COMMENTS 






, , .,.,,„,,,.L,., „,„„:„,.,„:,.„, .^.,„ .,„..,:„„. ,.,.1.,., 


,„„,„ „„„„.,„,.„„„..,„....„,.„ 


.♦■4' M't> >Ci'l!" 




R£0: , , : , iCu,C*t^a,,rTa,,ia) 1 1 













1 1 




1 



The REOT request is a tape movement control which allows the programmer to read 
after the physical end -of -tape. The tape is read from logical unit u according to the 
control word at the control word address. If the unit is available, the read is 
initiated and program control goes to the next instruction. If the unit is unavailable, 
program control transfers to the reject address. 

When the read operation is completed or an abnormal condition occurs, control 
transfers to the interrupt subroutine at the interrupt address. If no interrupt address 
is specified, no interrupt will occur. 
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FORM: 



The WEOT Request 



LOCATION 



DPEMTI0W,M0DIFIEIt5 



ADDRESS FIELD 



COMMENTS 



SjE^fc:^^ J-.iX-'^M^'tjWLYiCauiiftiV 



The WEOT request is a tape movement control which allows the programmer to write 
after the physical end -of -tape. The tape is written on logical unit u according to the 
control word at the control word address. If the unit is available, the write is 
initiated and program control goes to the next instruction. If the unit is unavailable, 
program control transfers to the reject address. 

When the write operation is completed or an abnormal condition occurs, control 
transfers to the interrupt subroutine at the interrupt address. If no interrupt address 
is specified, no interrupt will occur. 
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The TAPE CONTROL Requests 



FORM: 



LOCATION 



!)PERATION,MODIFIERS ADDRESS FIELD 



COMMENTS 



" ' r: — ^ 



lL^J;.tL.aL,i^aJ^ 



.,._.^ .^.i^...±._.,.. 



The tape control requests move tape in the forward or backward direction without 
transmitting data. If logical unit u can perform the request, it is initiated and 
program control goes to the next instruction. If the unit is unavailable, program 
control goes to the reject address. If the interrupt address is specified, program 
control goes to the interrupt routine when the request has been performed. 

The tape control requests may be any of the following: 



1. 


BSPR 


2. 


BSPF 


3. 


SKIP 


4. 


MARKEF 


5. 


ERASE 


6. 


REWIND 



1. The BSPR request backspaces the unit one record. If the unit is unassigned, 
this request is bypassed. 

2. The BSPF request backspaces the unit one file. If the unit is unassigned, this 
request is bypassed. 

3. The SKIP request skips to an end-of-file or end-of-tape. 

4. The MARKEF request marks an end-of-file. 
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5. The ERASE request erases approximately six inches of tape. 

6. The REWIND request rewinds the tape to load point. 
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The UNLOAD Request 



FORM: 



LOCATION 



]FERATION,MODreS ADDRESS FIELD 



COMMENTS 



idL^R.ll^.^j[M^,n.&,.,j3^y^ 



The UNLOAD request causes tape unit u to unload. If the unit is unavailable, program 
control transfers to the reject address. If the interrupt address is specified, the 
computer interrupts to that address at the end of the operation. 

The release code c specifies the disposition of the unit assignment after it has been 
unloaded: 



non-zero 



unit assignment released 
unit assignment not released 



If an interrupt address is specified, the unit is assumed as not released. 
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The RELEASE Request 



FORM: 



LOCATION 



!)PERXTN)N,MODIFeS ADDRESS FIELD 



COMMENTS 



k^LeAse , !u.,^r,a;,cT 



The RELEASE request releases the assignment of logical unit u and directs the 
disposition of the current physical unit. If the unit is unavailable, program control 
transfers to the reject address. 

The release code c specifies the disposition of the physical unit currently assigned to 
the logical unit: 







dispose of physical unit according to previous declaration; if 
none is given, the tape is rewound. 



non-zero 



rewind the physical unit and release the assignment, but do not 
dispose of the tape. 
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FORM: 



The RDLABEL Request 



LOCATION 



OPERXTIQN,IW)DIFeS 



ADDRESS FIELD 



COMMENTS 



R.QM&5L 



'Cj<^.Jay^J:,^^J<AX~^--U 



The RDLABEL request reads the label from logical unit u and transfers the label to 
memory starting at the label address. If the unit is unavailable, program control 
transfers to the reject address. If specified, program control transfers to the 
interrupt address when the label has been read. 

If the tape is not at load point, the job is abandoned. The, label occupies ten words of 
core storage and may be interrogated by the programmer. 
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FORM: 



The WRLABEL Request 



LOCATION 



QPERATIW,MOOIFiERS 



ADDRESS FIELD 



i * J ) t 



_.j,i.. 






COMMENTS 



The WRLABEL request writes a label onto logical unit u. The label of ten words is 
transmitted from the label area to the unit. If the unit is unavailable, program control 
transfers to the reject address. If specified, program control transfers to the interrupt 
address when the label has been written. 

If the tape is not at load point, the job is abandoned. 
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FORM: 



The STATUS Request 



LOCATION 



OPERfflOKMODVERS 



ADDRESS FIELD 



COMMENTS 



IXMM:S^ 



lu^Al 



_Lj_ 



The STATUS request of a logical unit u may be taken at any time. If units are 
equivalenced, an M specification will request status of the master unit. 

The STATUS reply is entered in the A and Q register as follows: 

A register (Control Word) 



Bits 47-45 
Bit 44 
Bits 43-39 
Bits 38-24 
Bits 23-18 
Bits 17-0 



Op Code 

Jump Control 

Unused 

Word Count 

Unused 

Starting Address 



Q Register 



Bit 47 

Bit 46 
Bit 45 
Bit 44 
Bits-43-32 
Bits 31-25 



Physical Unit Availability 

Indicator 

Physical Unit Busy Indicator 

Magnetic Tape Indicator 

Bypass Indicator 

Status Reply Bits 

Logical Unit Number Assigned 

To This Physical Unit 
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Bit 24 Driver Indicator 

Bits 23-18 Hardware Type Indicator 

Bits 17-0 Control Word Address 
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The LABEL Request 



FORM: 



LOCATION 



l)P£RATI0N,M0OlflERS ADDRESS FIELD 



LMBL 



(ji..+iS,dd.iCL.yj^AhLeJaL^j~^ 



COMMENTS 



The LABEL request provides identifying information for tape labels. The parameter 
definitions are as follows: 

u logical unit number 



addr 



address of the first of two computer words 
containing the name. 



edition 



1-99. If not specified, blanks are written 
on the output label. 



reel 



1-99. If not specified, reel 1 is written on 
the output label. 



code 



000-999. For an output tape, this retention 
code is the number of days tape is to be 
saved. 999 indicates infinite retention. 
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The SAVE Request 



FORM: 



LOCATION 



OPERATKHMOOIFIERS 



ADDRESS FIELD 



-^Me^ 



IL^ 



., i.._ 



COMMENTS 



The SAVE request allows the programmer to save a tape at the completion of a job. 
This request may be given at any point in the program since it does not inhibit 
reading or writing on the unit. At the end of a job the current reel of the saved 
logical unit is unloaded and a message directs the operator to reserve the tape for 
the programmer. 

U changes this request to UNSAVE. 
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FORM: 



The UNSAVE Request 



LOCATION 



OFERXTMHMOOFIERS 



ADDRESS FIELD 



COMMENTS 



Ml&M^^Jj^X 



The UNSAVE request cancels any previous SAVE request and may be given at any 
point in the program. The tape is released at the end of the job for subsequent use. 
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FORM: 



The SELECT Request 



LOCATION 



OfERimOH,MODIFIERS 



ADDRESS FIELD 



COMMENTS 



Sii/j£^;.Z!!^a_.Xini«Lrij:di^it.^ja £^^ _ 



The SELECT request allows the programmer to set up the interrupt system so that 
interrupt of the program will take place if the interrupt condition arises. The type 
of interrupt selected is given by the first parameter. The second parameter 
represents the interrupt address; i. e. , the address to which program control 
transfers when the interrupt takes place. 

The programmer selectable interrupts are the following: 



Parameter 


Meaning 


SHIFT 


Shift Fault 


DIVIDE 


Divide Fault 


EXOV 


Exponent Overflow Fault 


EXUN 


Exponent Underflow Fault 


OVER 


Fixed Point Overflow Fau 


ADDR 


Storage Address Fault 


M1604 


1604 Mode Alert 


TRACE 


Trace Mode Alert 


INST 


Illegal Instruction Fault 


OPER 


Operand Parity Fault 


MANUAL 


Manual Interrupt Alert 


ABNORM 


Abnormal Termination 
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FORM: 



The REMOVE Request 



LOCATION 



0PERATiaN,MODIFIERS 



ADDRESS FIELD 



COMMENTS 



^^SSi~rZpi5-teniu^i). 






The REMOVE request removes the specified interrupt. If the interrupt was not 
selected,. REMOVE acts as a NOP. 
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The ABNORM Request 



FORM: 



LOCATION 



[)PERATK)N,MODIFiERS 



ADDRESS FIELD 



COMMENTS 



m^ 



^,L&L»lf.ili.UL,j£^..&iLLC;.«iSii4^ 



The ABNORM request allows the programmer to specify an alternate interrupt 
subroutine to be entered before Scope terminates a job for an abnormal condition. If 
the programmer does not specify ABNORM, Scope terminates an abnormal condition 
immediately. 
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The BOUND Request 



FORM: 



LOCATION 



DPERffMUMOMFeS 



ADDRESS FIELD 



'l^M- 



COMMENTS 






The BOUND request sets bounds outside of which any instruction reference will cause 
an interrupt. The first BOUND request executed in a program may set any bound 
range allowed by Scope, Subsequent BOUND requests must set bounds which lie 
within the previously set bounds. If any requested bounds overlay those previously 
set, the request is rejected and control is transferred to the reject address. If the 
bounds are accepted, the previous bounds are stored. The number of nested bounds 
is 5. The BOUND request has the following parameters: 



lower bound 
upper bound 



are upper and lower bounds within which the 
program is to operate. Bank terms may be 
specified. If they are not, ($) is assumed. 



reject address 



location to which control is transferred if the 
bounds list is full (5 requests) or if the requested 
bounds do not fall within those previously set. 



interrupt address 



location of the programmer's interrupt 
subroutine to which control is transferred when 
an interrupt condition occurs. 
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FORM: 



The UNBOUND Request 



LOCATION 



[)PERATnN,MODIFIERS 



ADDRESS FIELD 



COMMENTS 



XMk,jAk^:Lau,iA.^^ 



AjJMMdiX 



The UNBOUND request removes the bounds set up by the last executed BOUND 
request and re-establishes the bounds previously set. UNBOUND cannot be used to 
remove the initial bounds set by Scope. 
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FORM: 



The LIMIT Request 



LOCATION 



Of€RATION,MOOfflERS 



ADDRESS FIELD 



COMMENTS 



IiA/i^-^^.lOji,^na^^aX 



._,J,. 

I 



The LIMIT request sets a time limit after which control will be transferred to the 
interrupt address. The parameters represent the following: 



du 



the duration in seconds of the time limit. 
Milliseconds may be appended by giving the 
parenthesized expression (seconds, Milliseconds). 



ra 



the reject address if the limit is not accepted. 



la 



the location to which control is transferred when 
the limit is reached. The interrupt subroutine 
is entered by a bank return jump. The interrupt 
subroutine should return to the interrupt address. 
The reject address and interrupt address may be 
modified by the contents of an index register. 
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FORM: 



The FREE Request 



iJcationT 


3PERATI0N.M0OIFIERS 


ADDRESS FIELD 


COMMENTS 






1 


1 








fM£... ...,J. 


1 








1 
! 


1 






1 







The FREE request releases the last time set by a LIMIT request (the smallest in the 
list of time limits) and re-establishes the next previous time set (the next smallest 
limit in the list). Limits set by Scope cannot be freed. 
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The TIME Request 



FORM: 



LOCATION 



QPERXnOKMODFIERS 



ADDRESS FIELD 



IIM^ 



iii^ 



COMMENTS 



The TIME request allows the programmer to receive the time of day in the Q 
register in BCD. The time of day is based upon a 24-hour clock and is given in hours 
(hh), minutes (mm), and seconds (ss). 12:30 P.M. would be given as 123000 in BCD. 

The time is entered in Q in the format: 



(Q) 



47 



41 



29 



17 






hh 


mm 


ss 






This request also returns the time remaining before the next time interrupt in the A 
register in binary. The time to the next interrupt is entered in A in the format: 



(A) 



47 




38 




23 




15 










milliseconds 





seconds 
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The DATE Request 



FORM: 



LOCATION 



!]PERATH]N,MOOFiERS ADDRESS FIELD 



COMMENTS 



'i"il'l»:"[II-,-<t,l7lt 



aAL^., 



LL-UliilUSJJ 



...l,,L_i„ 



The DATE request allows the programmer to receive the month, day and year in the 
A register in BCD. The format is as follows: 



(A) 



47 


41 


35 


29 


23 


17 


11 


5 


m 


m 


/ 


d 


d 


/ 


y 


y 
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The LIBRARY Request 



FORM: 



LOCATION 



OreRATION,MOOIFIERS ADDRESS FIELD 



LIMAM 



Ly^,,c^-y.LGflsi4 ir;aj„ 



COMMENTS 



The LIBRARY request may be used to position the library tape. The programmer 
specifies the following parameters: 



u 



library logical unit number; 70 to 79 or 0. 



ra 



location to which control is transferred if the 
specified record is not found. 



record name address 



record number 



storage location of the first of four computer 
words containing the record name. 



signed integer, through 2 



24 



Upon return to the program, the A register contains the logical unit number of the 
current library. 
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FORM: 



The LOADER Request 



LOCATION 


QPERATKHMOOIFIERS 


ADDRESS FIELD 


COMMENTS 






1 


1 








LiMm-^A^ 


1 






..-L_.-J_.^ .J-J..-i_. 


1 

^.. ^.^,._. I, a„„i„„i.^ 


1 


„i„. .i .,1,. • ,_ ^ 



The LOADER request is used by a running program to call the loader. If the loader 
is not in storage. Scope will read it from the library into its normal position 
following resident. 



Before this request can be given properly, the A and Q registers must contain 
meaningful parameters. A definition of these parameters is given in the 3600 Scope 
Reference Manual (Pub. No. 60053300), pages 5-7. 
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FORM: 



The MEMORY Request 



LOCATION 



QFERffiaN,M0OreS 



ADDRESS FIELD 



COMMENTS 



M.Lms-^^iu.aX^ 



The MEMORY request returns or changes the limits of available storage. The 
parameters are the following: 



bank designator 



0-7, *, or $ symbol. 

* designates the bank containing this request. 
$ symbol designates the bank in which symbol 
is located. 



lower limit 
upper limit 



any legal Compass address expression in the 
range 1 - 77776g. 



If either limit in the programmer request is zero, the other limit is not changed. If 
no limits are supplied in the request or if both limits are zero, the current storage 
limits for the specified bank will be entered in the A register in the following binary 
format: 



(A) 



47 



38 



23 



14 



/ 

■ 


upper limit 


/ 


lower limit 
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FORM: 



The EXIT Request 



LOCATION 


VERXrNKMODriERS 


ADDRESS FIELD 


COMMENTS 










1 




-li!-, »,«;.;,» 


..,...„,., 
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J : : ^ i i 1 


....._..— . ._, ... ....^...■. ^ 


1 
1 


^. .!_.,! :,.^ a 0^..^ _,....■.. _i,...L...,i L .. 


^LiJ.^.^. 


L. X 



The EXIT request returns control from a running program to Scope. This causes a 
normal termination of the program as long as there are no abnormal conditions. 
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FORM: 



The HERESAQ Request 



LOCATION 



H>ERffTnN,M0OFiERS 



ADDRESS FIELD 



COMMENTS 



im£M^^. 



..._;.J. ^ .;._.... 



The HERESAQ request allows the programmer to modify the A and Q registers in his 
interrupt subroutine so that when control is transferred back to the main program. 
Scope will enter A and Q with these values. 
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The CORE Request 



FORM: 



LOCATION 



ifRATION.MODIFIERS 



ADDRESS FIELD 



COMMENTS 



~JJI^. 



CM£. 



1 J ^ ; 



The CORE request allows the programmer to obtain or change the limits of 
available core within the bank of the subprogram. The parameters are: 



lower limit 
upper limit 



upper and lower limits within the bank. 
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The system macros may be used in thousands of different ways. To illustrate how 
some of them might be used and to show how they would be incorporated into a 
program consider the following problem: 

Suppose a set of data cards in BCD format are to be analyzed. Each card represents 
information about each employee of a company. A card is punched so that; 

1. Columns 1-30 give the employee's name. 

2. Columns 31-40 give the area he works in. 

3. Columns 41-48 give his annual salary. 

4. Columns 49-64 give his social security number. 

5. Columns 65-72 give his marital status. 

6. Columns 73-80 give his dependents' status. 

All information in a column is left justified with blank fill. 
Assume: 

1. The data cards are on standard input (60) between the 
RUN and end-of-file card. 

2. The data cards are terminated with a BCD 55 punched 
in Columns 1 and 2. 

Write a program that will list the information of each employee whose annual salary 
is at or "above $15, 000 on standard output (61). 
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Flowchart: 




Read First 
Or Next Card 



Terminator 
Card? 



Yr-s > , 




Salary Greater\ 
Than $15, 000?) 



This problem could be coded in the following manner: 



LOCATION 



[)PERATION,MOOIFIERS 



ADDRESS FIELD 



COMMENTS 



jji__-_ > 



^uJAl 



iDJj/f 
ffss.^ _„ 






I 

I 
J 



\f4 J^AL£ sfAce MP Jj/o&UkJ-J:^ L 



i£AD.^ 









I, 



r/ Xa/ma/t. lIsl 



LJo^ah 



JiM&.JM CAKil_, _._ 



^M,ju^ ^.M^ijsijil 






jltdMt . 

^k& 



hmjij^mL^Li^L^EKMiiM^ 



i J 






h^M^. 



Bc^Q^.^ 



^X 



LDJl, 















I 



MlRiM..^.±AA.J^A^ilM^, 



j^ElMK.^ 



jlLIc^a) . 



T_dL 



izA^lL 



m&licML. 



hEcA.eAS£SiMfi:j-M>JX 



Lm. 



S ^ M PmT j - S . 



^ns 



AM.tkL,. 



'£4eH. 



mkX^ 



jtL^,aoA_ 



W//?J72' 



ma:.. 



^ZMmS.^ 



Eil^IsMC 






A\^MX^. 



J3£l^JJ.S..Q^a 



KM^M£^ 



\^/^JA^ _ , ^ 

I 

I " ' ~ ' '" " 
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INTRODUCTION TO COSY 



The symbol COSY represents CO mpressed. SYmbolic and offers another useful aid to 
the programmer. The compressed symbolic coding is actually a compression of the 
source cards with the blanks squeezed. These BCD source characters when output, 
are output in binary mode so that, on cards, two characters per column are punched. 
This reduces a deck size by a maximum of 19: 1 and also reduces assembly time the 
next time the deck is run. 

When we refer to a COSY deck, we mean the compressed symbolic source coding of 
one subprogram ranging from IDENT through END. A COSY deck may easily be 
modified using Compass instructions especially designed for COSY decks. They are; 
DELETE, INSERT and REPLACE. An up-to-date COSY deck can be maintained with 
each subsequent assembly. 

COSY decks may be maintained contiguously on tape. It becomes relatively easy 
with the BYPASS and COSY instructions to read in and assemble any deck and to 
modify the deck with the INSERT, DELETE and REPLACE instructions. 
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GENERATING A COSY DECK 



Suppose a programmer writes a long subprogram. How can he generate a COSY deck 
from it? A COSY deck can be generated by specifying the C^ option on the Compass 
control card. The C option means that COSY output is requested. A COSY deck can 
be output to magnetic tape or directly to a card punch if one is available in the system. 
If both the L and C^ options are specified, the output listing will have sequence 
numbers assigned to each instruction. The IDENT instruction is assigned number 1 
and END is assigned number n, the nth instruction of the subprogram. The 
sequencing is automatic, even if no sequence numbers appear on the source cards. 
From these numbers the programmer can easily modify his subprogram, as will be 
pointed out shortly. 

If C is specified, the output will be to logical unit 62 which is the standard COSY 
output unit. If C = XX is specified, the output will be to logical unit xx (1 to 49). 
Here is an example of a do-nothing program that will generate a COSY deck on tape. 



LOCATION 


H>ERATION,MOOIFeS ADDRESS FIELD COMMENTS 


M ' i ' i M > ,i ' i ' i ' 


1 - 1 


fJ^8,l,A3 


\^MCA^3:. r.i_,i_J.„j...„ ,Lj..„ i ...L^i _L i j^ J. i 1 : ^ x_r : : 1 _j_j ^ . ^ , J^ j_— ^ ^ LI 


9£^IASS. 


^-'^■)£■.if.SLQL... ,1 ..J.._.> _1_1.. : i .i '..■.!.: i ; i 1 : i ._L : ^ : J_ : 1 ^ ^ ,_J : ^ ' J L i_ I ' • ' ' ' J^ ^ 




:^iul^s .^.kmtiPMS... . . : Li ^,^.,.x.. 1, ^ 1l.j L^ , _ ^ ^ , . L^ . . 




- ?/t^ft.>i^...„ :...^.J.S^»£k5 ^ : . L . , : ^ u^ ^ A, . : ^^^^ ^ ^ . x.._, : . L.^ ^ ^^ 


XL..^.. 1 .^.... 


,ai^x...„..,„^.:,..,..LL.Li . : . r. .L^. . 


EjL^nPJrAl 


.B5^... .^ .„JJ^,.„...^ . .. ,LL^. ^1 ^ .^..^ ^ ^ L^.. . . . 




.yM.^_,L, Ik.. :,......., .^ . . ^ 1 , ,^. 1 ^ 




-IM^ ^,.........15,. ^.._ . .... J . . . . . .. 1 . .. , " 




AM .,:.!){.,. 1 




:13 B_,. ^.^,. .^.kjCfihJUj ... : , . : i . _ J : : : : X. . _ • . L ^_. ^L^ 


■ ■ 


.em..^..^.^ A ...,^...:.^. _. ._ . : I ^^ 




:^^1M :.., j.. ^... ■ , . .L^. . . J . . , ^. ..... ,^ . ^.^^ . ^^^ 


'e1._ .^.^ 





COSY output will be formed on logical unit 20. The standard output will look like this: 
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BCSIN JOB AT lalS 
J0a>li3>lNCI)>3 

$COK VERSION 6.ZB* 
COHPMSiLiC'ZO 



15.1) EXAMPLE 03/J0/6f En 

COSY NUmBFRING 















lOENT 


EXAMPLE 


PROSRAM 


LENGTH 






00004 






entrv Points 




EXAMPLE 




00001 


















ENTRY 


tXAMPLE 


00000 








X 




9SS 


1 


00001 








EXAMPLE 


BSS 


1 


00002 


12 





POOOOO 






LOA 


A 




11 





0000& 






INA 


3 


00003 


20 





POOOOO 






STA 


A 




75 





POOOOl 






UJP 
END 


EXAMPLE 



00002 
00003 
0000* 

oooos 

00006 
00007 

nooon 

00D0'« 



00002 SYMBOLS 
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DSTPUTING A COSY DECK 



A COSY deck can be input and assembled by the programmer. In order to do so, he 
must specify the Y option on the Compass control card (unless the COSY deck is on 
standard input). If the COSY deck is on magnetic tape, the programmer must specify 
Y = XX, where xx represents the logical unit number (1-49). If the COSY deck is on 
the standard input unit, the programmer may specify Y or nothing, since standard 
input is assumed for all COSY input. 

We now know how to define the COSY input unit, but how does the programmer read 
in the COSY deck, modify it, assemble it and execute it? Before we can illustrate 
how, we first must understand the five instructions associated with COSY. They are; 



1. COSY 

2. BYPASS 

3. INSERT 

4. DELETE 

5. REPLACE 
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The COSY Instruction 



FORM: 



LOCATION 


OFERATOiMODIFeS 


ADDRESS FIELD 


COMMENTS 




1 


1 






ZcbsH : L 


1 






' 1 " "■" l' "' " " ■" " • ■•" 



The COSY instruction is associated with COSY decks in that this instruction will read 
one COSY deck into core, translate it, perform any modification previously specified, 
re-number the sequence, form new COSY output (if requested), assemble it, and list 
the modified subprogram on the standard output unit with the new sequence numbers 
(if requested). 

It is important to note that the COSY instruction will do this to only one COSY deck 
(equivalent to one subprogram - IDENT through END). If more COSY decks are to be 
read and assembled, each" one requires another COSY instruction. 
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FORM: 



The BYPASS Instruction 



LOCATION 



QPERATNKMQOVIERS 



ADDRESS FIELD 



COMMENTS 



USMS. 



The BYPASS instruction is associated with COSY decks that are contiguously on tape. 
BYPASS provides a means of skipping n decks to arrive at a particular deck for 
processing. If BCD or COSY output is specified on the Compass control card, new 
Hollerith or COSY decks will be produced from the bypassed decks. After bypassing 
n decks, the programmer can read the next deck with a COSY instruction. 
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FORM: 



The INSERT Instruction 



LOCATION 



DfEMTI0N,M0OfflERS 



ADDRESS FIELD 



COMMENTS 



iMX£Sa--^.-ru- 



The INSERT instruction is used to add lines of coding in an existent COSY deck. 
INSERT causes the instructions which follow it to be inserted after line na as long 
as they are not COSY, BYPASS, INSERT, DELETE or REPLACE instructions. 

When the first COSY instruction following this instruction is encountered, a COSY 
deck is read and modified accordingly. In other words the INSERT instruction would 
precede the COSY instruction for the deck that it modifies. 
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FORM: 



The DELETE Instruction 



LOCATION 



oPERmaKMnoffiRS 



ADDRESS FIELD 



COMMENTS 



Ci£]u£rfIl.-L-,^.J»u^^ 



The DELETE instruction is used to modify lines of coding in an existent COSY deck. 
DELETE causes the deletion of coding lines m through n. A single line is deleted 
if only m is specified. 

This instruction also allows the instructions following to be inserted in the deleted 
area as long as they are not COSY, BYPASS, INSERT, DELETE, or REPLACE 
instructions. The instructions following need not be less than, equal to, or greater 
than the number of instructions deleted. 

When the first COSY instruction following this instruction is encountered, a COSY 
deck is read and modified accordingly. In other words the DELETE instructions 
would precede the COSY instruction for the deck that they modify. 
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FORM: 



The REPLACE Instruction 



LOCATION 



0PERJ(nON,MOOriERS 



ADDRESS FIELD 



COMMENTS 






The REPLACE instruction is used to replace lines of coding in an existent COSY deck. 
The REPLACE instruction will do the same as the DELETE instruction. 
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With the previous COSY instructions in mind let us form a couple of problem.s in order 
to apply their functions. Consider the following problem: 

Suppos.e a COSY tape contains fifty contiguous COSY decks, each deck representing a 
Compass subprogram. Write a program that will input the tenth deck and list it on 
standard output. Reference the COSY tape as logical unit 20. 

This problem could be solved by coding in the following manner; 



i^^&^JAif. 



LOCATION 



lC^A£M^. 



[)PERKraN,MOOIFeS 



PM^J:&.. 



ADDRESS FIELD 



COMMENTS 



Lt>L<L(^ 



e nf fi' S s, 



^if^± 



sc ^m .. 



L 



The COSY instruction reads the tenth deck, assembles it, and lists the coding on 
standard output. 

Consider" another problem; 

Suppose a progreimmer writes three long Compass subprograms, assembles it and 
asks for a COSY output on logical unit 30. While holding onto his COSY tape and while 
scrutinizing his output listing, he notices he made a few mistakes. If the three sub- 
programs are called A, B and C, he would like to modify them as follows; 



Subprogram A 
Subprogram B 
Subprogram C 



Insert after line 15, 
Delete lines 25 through 31 
Insert after line 10, 
Delete lines 14 and 15 and 
replace with the instructions; 



ENA 


12B 


LDA 


XMIN 


ENA 


5 


ADD 


X 


STA 


Z 



1-ba 



Write a program that will correct the three subprograms and execute them the second 
tim.e he runs on the computer. 



The problem could be coded in the following manner; 



LOCATION 


IfR/mOKMOOIFiERS ADDRESS FIELD COMMENTS 


.,=;.i.^...,.,, 


1 1 


'^J^Sy/.XS, 


thiBAfsL^j^l . ,.,!,, .A ,.,,,.... . . . , , 


t£^B£AS^, 


,i-jj/=:Ag^lJi. J 1 ._ : .. ,„ ,„. ^ 1. ^ : . ^, ^ ^^ : . ■ ^^ 




-lA/^gj .^^Jl.5^.. ,...^.., . : , ... ,.:..^, ,^...^,, :._.i. :^ . , . , , ; , 




.^A/A. ^ :..^....,, liAQ, : , (la Yicr^c . ^.^ . . . 




.^^sy. -.,.,.. A,_........ ^, .._..., 1., ,. 





.}EL.a:£. .ja^A./^..;„ , :x^:_ A.. .^: . . . .^ . . , . .^^._j^ . . . , : : : 




_;^^S^... . .. .. L. ..._.: _......... ..._....^.. ..„.,.... .^ ..1^..., ,.,...,. ^^ . . . ._ . :^. . ..^^ 




_I<>'st-.j«Lr. ._i/.p . ^ J .. ^ ... :^ , 




_60A....^..... ,.,,„._ _kAlI/L/...,...,^_ ...^ . . . . .i ..^ , ^ ^ ^ ... : 




^ne£re:i£^..._AiM,.i.^ ,,,! ,.. ,,.^_^^... 


:_, • i ■ • 


-^det^. .^.. ,.J^......^.. .... ... ........ .._...: , . L . , , 





-M5.^.. :. ....1...^^.. ..a........^.J_l...l...X...^^..^.., ; ..:... M , , . ■ 


: , ; 1 . 


.S.Z>».^i^_.... fe., : , 1 


_-l !_' ' 




. 


_5?^^.^.i^J.. ...^...^ ... ~,, , ._, ..^ ... ....^..... .,^.........,.. M . . : . , 


IJ^^^.^ 




Le6y/,^^sj^^2__ .„^.J, , ,: ,, ....^^^^ .1, . ^ , ^ _^ 1 


Hi^j 


4...i_J_J.J--_^i-.J.....J_..p-.i...J_.J_l...J_..i_.UJ._L.i_J_l..J....I_l..j......^..Lj..^..l_iJ....l_J_J..j..^.i.^^^^ : : ...^..^...L_i.j..j„_i_,_l.^..^l ■. 



Note how the COSY correction cairds precede the COSY instruction for the deck 
represent. Note also how execution immediately takes place. 



they 
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OVERLAY PROCESSING 

Overlay processing is a feature of the Scope system that allows execution of programs 
that exceed available core storage. The program is divided into independent parts, 
stored on tape, and called in as needed at execution time. A program may be divided 
into a main section and ariy number of overlays, each of which may contain any number 
of segments. Main, overlay, and segment may each contain many subprograms. How- 
ever, only one main, one overlay, and one segment may be in core at any given time. 

Initially control is transferred to main, which resides in core storage continuously. 
Main in turn can call overlays when they are needed during program execution. 
Segments may be called by either main or overlay. 

Two questions come to mind when getting started on overlay processing: 

1. How are overlay tapes prepared? 

2. How are overlays called and executed? 
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PREPARATION OF OVERLAY TAPES 

In order to prepare an overlay tape the programmer must first determine which set 
of subprograms he wants included under the main section, which set of subprograms 
he wants included under each overlay, and which set of subprograms he wants 
included under each segment. The main section always resides in core storage. Each 
overlay and its associated segment must be small enough to fit in memory core when 
called. 

Each section is preceded by a loader control statement. A loader control statement 
is just like a Scope control statement (7, 9 punch in column 1) except that it contains 
anil, 0, 7, 9 punch in column 1 . The loader control statement defines the following 
set of subprograms as being a section, an overlay, or a segment. Each statement will 
specify on which logical unit the set of subprograms following will be written on. The 
subprograms may be in Compass or in relocatable binary (Compass already assembled) 
Each main, overlay, or segment must contain one transfer address to which program 
control transfers when that section is loaded. 

We now define the meaning of three loader control statements. 

1. MAIN 

2 . OVERLAY 

3. SEGMENT 
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The MAIN Loader Control Statement 



FORM: 



LOCATION 


lFERATIQN.t<ODIFIERS 


ADDRESS FIELD 




COMMENTS 














,.;tV,6.:,»,'fli;i.?l 


l/^A/V, u 










, L.^. L^.l. ■ 




. . .- -.,..:-...i I ^.i._i.. J ^„.]„_ 


....-i i-...^..-.;....J. J :._,; — L..,.-^ L__i J. 


1 


..U-.i... ^ ^-...i....i. L..J ^..1. 1. :...'....■ ... 


..-:... i_ :._.: i i.... 



u the logical unit number of the overlay tape, 1-49, on which 

the main section is to be stored, u may not be omitted. 

The MAIN loader control statement defines the following subprogram(s) to be a part 
of the main section. At load time the main section is transferred to logical unit u and 
to memory core. The main section represents the section to which program control 
transfers at the start of execution. 
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The OVERLAY Loader Control Statement 



FORM: 



LOCATION 



llPERXTnN.MO(NFIERS 



ADDRESS FIELD 



COMMENTS 



yikMLM 



iii-uH- 



.x... 



u logical unit number, 1-49, of the overlay tape on which the 

overlay section is to be written, u may not be omitted. 

o the decimal number (starting with 1) identifying the overlay. 

The OVERLAY loader control statement defines the following subprogram(s) to be a 
part of an overlay section. This section is written on the tape specified by the logical 
unit number. 

At execution time the overlay is called into memory core by a calling sequence in the 
main section. It is necessary for the programmer to understand this calling sequence 
so that he can call the overlay and transfer control to it. This is explained later. 
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The SEGMENT Loader Control Statement 



FORM: 



LOCATION 



j^iXLL. 



^S£6 f\em. 



0PERATION,MODFIERS 



ADDRESS FIELD 



COMMENTS 



IMSL. 



.x,.,^^ 



u 



logical unit number, 1-49, of the overlay tape on which the 
segment is ►to be written, u may not be omitted. 



n 



decimal number (starting with 1) identifying the segment. 



The SEQMENT loader control statement defines the following subprograim (s) to be 
part of a segment section. This section is written on the tape specified by the logical 
unit number. 

At execution time the overlay i"s called into memory core by a calling sequence in the 
main or associated overlay section. The calling sequence is explained later. 
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In order for the Scope loader to process subprograms and form the overlay tape the 
sequence of input must be in the following form: 

11 

MAIN 

7 

9 (Relocatable binary subprogram (s)) 

11 
OVERLAY 
7 
9 (Relocatable binary subprogram (s)) 

11 

SEGMENT 

7 

9 (Relocatable binary subprogram (s)) 

If this sequence were on standard input (60), a JOB card at the beginning, and a RUN 
and end-of-file card at the end of the deck would suffice. Scope would process the 
JOB card, the Scope loader would process, write the overlay tape and load main into 
memory core, and Scope would run the program by transferring control to main's 
transfer address. Main in turn can call overlay and either main or overlay can call 
segment when it is needed. 

Many times, however, the programmier's subprogram.s are not in relocatable binary 
form. So the next question is, "How is the source deck formed into relocatable binary 
if the programmer wants to run a Compass program?" In order to show this, we must 
know the definition of two new statements . 

1. FILE 

2. FILE END 
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FORM: 



The FILE Statement 



LOCATION 



H>ERATKIN,MODVIERS 



ADDRESS FIELD 



COMMENTS 



iiJ^LL^ 



The FILE statement is a Scope statement that allows all records following up to the 
FILE END statement to be transferred to logical unit u, where u may be 1-59 or 69 
(load- and- go). The records are written in odd parity (binary). 
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The FILE END Statement 



FORM: 



LOCATION 



!l(>EiUTION,MODIFiERS 



ADDRESS FIELD 



COMMENTS 



lElLj^^iL^t 



The FILE END statement signifies the end of a FILE- FILE END sequence that transfers 
the binary data. Any binary data may be transferred except the Scope Control state- 
ments; SEQUENCE, JOB, END REEL, and END SCOPE. 
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The reason it is necessary to know these two statements is that the MAIN, OVERLAY, 
and SEGMENT statements must be transferred to the load- and- go unit just previous 
to the binary subprograms that they represent. The binary subprograms then follow 
each statement as a result of the Compass assemblies. Once the load-and-go tape has 
been formed, the LOAD statement will cause the loader to load the main section and 
then write the main section ajid all other sections on the overlay tape. The RUN state- 
ment will then execute the program. 

Consider the following example showing the sequence needed to have a Compass 
program assembled and run with separate parts: 



•iSm^dJ^ 



l££i-I:^k3 



iAMd^LB. 



if^uEjm. 



\&.^fM-£: 



LOCATION 



l£l,L£a,k^_ 






'^C^MM^'^y 






%£-Me^&^ 



-f 



rLMH - 



y '7 



DPERATK)N,MODriERS 



SCi^^jEl. 



ADDRESS FIELD 



COMMENTS 



iil£sj.;^i(a_ 



LiX- 






(Sr°<:s:.^°ks3As.'±k f^L afCA/n/sl L. 



,.i. ...__... J. 



IO.:^J^ 



(C,^ •rx^aj^jS. ^.'§a}LfS:.o^Ls^i^. Ls}J__,, 






^£.4ML 



lo^J.^ 



UX...^ 



Zc, 



I 

^..L.,,„_..-„ 



,^rif±S^.A?J:i-.kf<~9j^JX^>yl 



sa 



Scdei^ 
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In this example the sequence of events is as follows: 

1. The JOB card is processed by Scope. 

2. All card images between the FILE- FILE End control statements are trans- 
ferred to logical unit 69 (load- and- go). In this case the binary loader con- 
trol statement MAIN, 10 is transferred. 

3. The COMPASS control card causes Scope to load the Compass assembler 
which assembles the Compass subprograms. As the subprograms are 

assembled, the relocatable binary decks (object program) are output to 
logical unit 69 (X option). 

4. The process continues until just before encountering the LOAD control 
statement, logical unit 69 looks like this: 

MAIN 

7 

Q (Relocatable binary subprograms) 

OVERLAY, 10, 1 

7 

9 (Relocatable binary subprograms) 

SEGMENT, 10, 1 

7 

9 (Relocatable binary subprograms) 

5. The LOAD statement will cause the Scope loader to; 

M.. J. v vv ^±i.\A. x\_»K J-^^ClX UlJ.J.I' \J <J y 

b. load the main section into core and transfer it to logical unit 10, 

c. transfer the overlay section to logical unit 10, and 

d. transfer the segment section to logical unit 10. 

6. The RUN statement begins execution at the transfer address of main. 
At some time the main section may wish to call in the overlay from logical unit 10. 
What are the necessary instructions to do this? How do you call it in and how do 
you transfer control to it? This is the topic now covered. 
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THE CALLING AND EXECUTION OF OVERLAYS 

Once the overlay tape has been prepared and execution has begun, it is relatively 
easy to call the overlay and execute it. The main section must include a calling 
sequence to a standard Scope routine called LOVER (Load OVERlay) specifying the 
logical unit number and the overlay or segment number. The LOVER routine only 
loads the overlay. 

The main section declares LOVER an external symbol and does a bank return jump 
(BRTJ) to it. Immediately following the BRTJ the programmer must prestore the 
necessary parameters: the logical unit number and the overlay or segment number. 
The form looks like this: 



LOCATION 



L 



Ml 



0P£RAII{lN,MODiFIERS 



ADDRESS FIELD 



COMMENTS 



^«7x,....,x..x„J(:a^,4(^^j'. 



£X71.^....^l/^/'^,_ ...^:.^ 



^ol^ll^l...jAhljJ^iMA^l^Myd^ 



. h£i<irj). _, 



The VFD pseudo instruction has been defined in Volume II. In this case; 
N = logical unit number of overlay tape 
V - overlay number 
S = segment number; if loading an overlay 



Another way of forming the same calling sequence is to write it using the CALL 
pseudo instruction. 



LOCATION 



.L. 



£±L 



hA... 



[1PERATKIN.M00IFIERS 



ADDRESS FIELD 



COMMENTS 



'AU^^^^^...^Jl£A^^ 



v:£J2.„ ,_j4i/jA/,45/^iA/5i/.5/,i<,..<d^//l^ 



l^iiy:- 



l<k,,^,. 



In 



order to load overlay 1 as was written in the previous problem, it could be done thus: 



LOCATION 



[)PERATION,MODIFIERS 



ADDRESS FIELD 



COMMENTS 



rciurn 



\Lj>yM:. ~^^ ...._ .x,._....... 



_ I...,. 
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The LOVER routine will load the overlay. If the overlay was loaded correctly, the 
return will leave the A register equal to zero and a bank return jump to the transfer 
address in the Q register. All the programmer must do is check A for zero, and if 
" ^^' ^^^^^^^ ^^^ ^^^ return jump instruction. The sequence might look like this: 



LOCATION 



[£AaJSCP^I^£E 



QPERXTION,llM)nFIERS 



IFD 



ADDRESS FIELD 



COMMENTS 



■Md-. 



iL^j/dSiik. 



jLMil...4^&LM.. 









MAi/scj^j/r_. 



_.i5_ 



fce,4-v4irja.^..idsbro.. i o i/^e^vla^ 



A^AtiPi^Ub^ ^t/BRL A j 



If later in the main section a calling sequence called another overlay, the first one 
would be destroyed since only one overlay and one segment associated with that 
overlay may reside in core at one time. But this shows you that they can be called 
and they can be executed when needed. 



More can be written on this subject than is given here, but this much information 
gives some insights on how to get started with overlay processing. More information 
can be found in the 3600 Scope Refere nce Manual, page 6-1 (publication no. 60053300). 
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LIBRARY PREPARATION AND MAINTENANCE 
INTRODUCTION 

PRELIB is a routine on the library tape that will prepare and maintain library tapes. 
Library tapes include binary routines, binary data, BCD data, and end- of- file marks. 
Routines may be extracted from existing library tapes or they may be taken from other 
logical units when preparing a new library tape. 

When we think about library processing, three questions come to mind. 

1. How can we find out the contents and the order of contents 
on a library tape? 

2. How can we change a present library tape? 

3. How can we prepare a new library tape? 

These questions serve as the next three topics. As each topic is encountered, the new 
control statements needed to answer the question and solve the problem are defined. 
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LISTING A LIBRARY TAPE 

A library tape contains a set of binary records. Each record serves some purpose 
when monitoring, compiling, assembling, or executing a program, and each is called 
and used only when needed. A table of contents of the library can be listed on standard 
output by a short program using a library routine called PRELIB. To write the program 
three new control statements must be used. They are; 

1. PRELIB 

2. LIST 

3. FINISH 
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The PRELIB Control Statement 



FORM: 



LOCATION 


QPERATIQKMOnFeS 


ADDRESS FIELD 


COMMENTS 




1 M • ) ^ * ■ 1 ■ < ■ ' : » 


! 








- . . : 1 i.,J 


1 


_!_! J, J_ ^i^ ^ ^ ^ I i^ ^ ^ i ^ ^ : i^. ^ ^ ■ : . : i 1 . 1 


..a...-L...i„j_j..a..j__i ^.J.,..J_.,l_J.. 1 .J .i '. ■....! .. L L. ; .: i ^.. ■ i_^,.^,.j 

! 


■i... i i ^ I i ; 1 : 1 ) i F i ! t i 1 1 1 ' ..i ). ;„ >.. 


J L...i i I. , J_ .. 



The PRELIB control statement is read by Scope. It causes Scope to load the PRELIB 
routine and transfer control to it. PRELIB then reads and interprets all control 
statements following until it reads the FINISH control statement. It then returns 
control to Scope for the next control statement. 

The PRELIB statement must be followed by the LIST, EDIT, or PREPARE control 
statements. 
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FORM: 



The LIST Control Statement 



LOCATION 



DPERATMUMflOfflERS 



ADDRESS FIELD 



COMMENTS 



iLiSrCW 



a t4j-.i>vamcai| 



The LIST control statement is read by PRELIB and is one of the three possible state- 
ments following the PRELIB statement. This statement will list the contents of the 
named library tape on standard output. An asterisk (*) represents the present Scope 
system tape. 
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FORM: 



The FINISH Control Statement 



LOCATION 


»>£RATION.MODFIERS ADDRESS FIELD COMMENTS 


,,, ^,,. 


1 1 


T.FJMLSM: 


^ ;,..., . \ _ , , 1 







The FINISH control statement is read by the PRELIB routine. It returns control 
to Scope since this signals the end of a PRELIB run. 
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Using these statements the table of contents could be listed on standard output using 
the following job; 



i.?<eauia<^s^ 



LOCATION 



SJ£K,.MM. 



}.pj?,etr.e 






3 "^ 



OPEROTMUMOOIFIERS 



ADDRESS FIELD 



COMMENTS 



, TM . 3 



Below is the actual output generated from a 3600 System showing the table of contents 
of the library tape. 



LAHEL 5(>T0 TC SCOPE 6P2 U01Q903660S 
HECOftD NUMSEH NAME 



1 


eooT 
loadeh 


3 




* 




5 


CARPU 


6 


Ofi3649 


7 




a 


LOADEH 


9 




10 


PRELIli 


u 


SI0P4CK 


12 


FTN 


13 


COHPASSX 


14 


FTNOUe 


15 


COMPASS 


16 


MACOIK 


17 


COBOL 


18 


ILDAP 


19 


ALOO 


20 


CDC SORT 


21 
22 


LOADEH 


23 




24 


MACROSIM 


25 


MS510 


26 


8UFIN 


27 


SHEEnbCm 


28 


LISTNU 


29 


lEVAL 


30 


ICAPORD 


31 


FBUFFIO 


32 


IFINISM 


33 


TIILESET 


34 


PASE 


35 


L8C 


36 


IRELEASE 


37 


LOADSIM 


38 


lOP 


39 


lOS 


♦ 


U8QERR0R 


41 


OaQENTRY 


42 


• LLOC 


43 


lOM 


44 


STH 


45 


TSM 


46 


SLI 


47 


SUHTF 


48 


SINF 


49 


EXPF 


50 


LOOF 


51 


POWRF 


52 


ASINF 


53 


ATANF 


5. 


OiSKriLt 


as 


FORMEHR 


56 


OlOSTORE 



ABS 
ABS 
EOF 
DIR 
REL 
REL 
END 
EOF 
ABS 
DIR 
REL 
REL 
REL 
REL 
BCD 
REL 
HDR 
REL 
REL 
REL 
REL 
END 
cne 

ASS 
OIH 
REL 
REL 
REL 
REL 
REL 
PEL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
PEL 
REL 
REL 
PEL 
REL 
REL 
REL 
RtL 
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57 


OlOREINT 


58 


QBSIFIOC 


59 


XTOI 


60 


RANF 


61 


XFIXF 


62 


ITOX 


63 


TANHF 


64 


I TO J 


65 


HAXIF 


66 


Q2(1L0A0A 


67 


qbqloaoa 


6B 


TANF 


69 


COTF 


70 


QSUMOUF 


71 


Q8QXM00F 


72 


REa 


73 


UNLOAUN 


7* 


EFT 


75 


108 


76 


BSP 


77 


SFI 


78 


BACKSKIP 


79 


a8llIFUNI 


80 


LENOTmF 


81 


DEC 


82 


ENC 


83 


glUDJCILE 


84 


QiaCPLEX 


85 


a7aL0tiLC 


86 


98UIFUIV 


87 


OSCIHT 


88 


DLOG 


89 


OblN 


90 


DEXP 


»1 


DPOWER 


92 


oeuDLL>A 


93 


a2UDUDA 


9* 


DATAN 


95 


PUN 


96 


Q8aSEMLr 


97 


oeoiFss« 


98 


CUBERTF 


99 


OCUBST 


100 


OelNOUTi 


lOl 


SLI04 


102 


CLOG 


103 


CSIN 


104 


CEXP 


lOS 


CSQRT 


106 


CATAN 


107 


CASS 


108 


ATAN2 


109 


DATAN2 


110 


ALOelO 


111 


DL0610 


1)2 


IOINT 


113 


OSISN 


114 


OMOO 


115 


DM4X1 


116 


02807202 


117 


DTOI 


118 


02U07323 



119 


02007313 


120 


O2S07330 


121 


090EVAL 


122 


OVERSEG 


123 


02007331 


124 


aSORESlLl 


125 


ABSF 


126 


TIMEF 


127 


OBOPAUSE 


128 


FL04TF 


129 


OIMF 


130 


XDIMF 


131 


INTF 


132 


S18NF 


133 


cmplxcvr 


134 


SMSL 


135 


CONJS 


136 


DABS 


137 


NUMBER 


138 


SYMBOL 


139 


PLOT 


140 


LOVER 


1*1 


BLKAPROC 


142 


SOPfiOC 


143 


LEAP 


144 


SL36lMr 


145 


AL36FLT 


146 


4L36F1X 


147 


MEMFULL 


148 


&L368UTn 


149 


AL36XT0r 


ISO 


AL36XT0I 


l5l 


AL36IT0J 


1S2 


AL36REA0 


153 


AL36«RIT 


154 


AL360UPT 


155 


AL36EXVL 


156 


AL36LN 


157 


AL36AIKL 


158 


AL363UVL 


159 


AL36SIVL 


160 


AL36AiNM 


161 


AL365UNW 


162 


AL36EXNM 


163 


AL36ENNM 


164 


AL36SNMM 


165 


AL36AONM 


166 


AL36SINM 


167 


AL36iFI0 


168 


AL361FEF 


169 


AL36EMFL 


170 


AL36aKSP 


171 


AL36RE* 


172 


ALSsaiRO 


173 


AL36INPT 


174 


AL36lNa** 


175 


AL36T1ME 


176 


VSEN 


177 




178 


LOADER 


179 





REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 



REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
ENO 
EOF 
A3S 
OIR 
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ISO 


BIDJHI> 


IBl 


BLKB 


182 


OUTPUTO 


i83 


CEDIT 


164 


AHITMOVE 


185 


ANCHOi^ 


186 


SSMEKGE 


187 


OCP 


laa 


ALSOl 


189 


COPYX 


190 




191 


LOADEH 


19Z 




193 


STO 


194 


IFOBJ 


19S 


FILLl 


196 


FItL2 


197 


sgntran 


19g 


XFERl 


199 


XFER2A 


200 


XFER2S 


201 


XFER3A 


202 


XFER3K 


203 


XFER4 


20* 


XFER4A 


205 


ALLIT 


206 


SUBMOVES 


207 


SCMUOVl 


208 


DBINT 


209 


BOINTl 


210 


XFER3600 


211 


GOIF 


212 


ACCEPT 


213 


DBOERON 


2U 


SESNCH 


215 


OBJEOT 


216 


sdo 


217 


DISPLAY 


218 


EXAH09J 


219 


ADOOVFLO 


220 


AUJOKFLU 


221 


RNOO>/FLy 


222 


SUBHOUT 


223 


STOP 


224 


CURNOATE 


225 


DUKMYi 


226 


OUHMY^ 


227 


0UHMY3 


228 


01IHHY4 


229 


0UMHY5 


230 


DUMMY 6 


231 


DUMMY 7 


232 


0UMMY8 


233 


DUMMY* 


234 


DUMMY 10 


235 


DUMMYU 


236 




237 




238 


TAPENL) 



REL 
REL 
REL 
SEL 
REL 
REL 
REL 
REL 
REL 
REL 
END 
EOF 
ABS 
OIR 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
BEL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
RCL 
REL 
REL 
END 
EOF 
EOF 
EOF 



From the table you can see the names of routines that may be familiar. Record 10 
is the PRELIB routine. Record 12 is the FORTRAN compiler. All assemblers and 
compilers are generally in one area. 

v^Kyjv-v,v. i V./V.li,iw^i3 Vi v./^.,iiiv-o Li^^i^y.^ i^iixii^g ^^v- v, ^i. iv^w ^j. ^ ^^v^g^-^^^i, ^^ ^ ^^^^ ^^^^^^. 

Record 47 is the square root routine. Record 48 is the routine that calculates the 
sine of an angle. These are often used in FORTRAN. 
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EDITING A LIBRARY TAPE 

An existing library may be edited or changed by deleting, inserting, or replacing 
records. If the programmer knows the record number of a routine on the library, 
he can replace the routine with an updated version. The updated version must be in 
the same mode as the routine it replaces. 

In order to replace a routine the programmer must first generate the updated version 
on a separate unit. There are several ways of doing this. At this time we are going 
to describe one method, and in order to do so, we will use an example. 

Suppose the routine SQRTF (record 47) needed changing. It exists on the library tape 
in relocatable binary form. The programmer must generate a new version of SQRTF 
with the proper modifications. 

To start, it is necessary to obtain the Compass source coding that was used when the 
routine was first written. This is sometimes difficult to do. However, each data 
center keeps on file a COSY tape containing a copy of each library routine, but in COSY 
format (source code but compressed). The programmer can perform the modifications 
and form the new relocatable binary deck (P option on the Compass control card) in 
one run. You might review the COSY portion of this volume for the necessary proce- 
dure. 

Once the new SQRTF routine is on a tape unit (assume logical unit 62) in relocatable 
binary form, it then has to be transferred to the library tape. The old record 47 must 
be extracted and the new one inserted. All other records on the library tape should 
remain as they were. 

In order to replace record 47, a program must be written that will include the follow- 
ing new statements: 

1. EDIT 

2. REPLACE 

3. UNIT 

4. REL 
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The EDIT Control Statement 
FORM: 



y?MllN_ DPtRffKIH.HOOIFIERS ADDRESS FIELD COMMENTS 



^ ti^-^.Jli.'ljJi'i^i.' 



?isPIiX-£4i)jftajii£^&cjL • J -- -a-j ..^x-i.. 



The EDIT control statement is read by PRELIB and is one of the three possible state- 
ments following the PRELIB statement. This statement is the first statement of an 
editing deck. The editing deck contains any number of INSERT, DELETE, and 
REPLACE control statements. 

The parameter specifies the source library tape. If * is specified, the current Scope 
system library is used. The new library "will have the same name as the old one with 
the edition number incremented by 1. AH records will be copied except those that are 
deleted or replaced. During editing, the old directories (table of contents) are updated 
by PRELIB. 

The FINISH control statement terminates the editing deck. When it is encountered the 
rest of the source library is copied. The new table of contents is written on the stan- 
dard output unit. 
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The REPLACE Control Statement 



FORM: 



LOCATION 



JtRfflOHMOOfflERS 



ADDRESS FIELD 



COMMENTS 



U.£ILAL£ L a'^&A.j-Acl^^ ^ ^ 






The REPLACE control statement will copy the source library up to the records that 
are to be replaced. The following control statements will determine what then will be 
written on the new library tape and from which unit it will come. 
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The UNIT Control Statement 



FORM: 



LOCATION 


H>ERirKIN,MODIFeS 


ADDRESS FIELD 




COMMENTS 




, ,1 ■,:..,,,,.• ,, 


1 

. •..,:;.:,'i.i^'i".":»i.>i»i»l»u; 




1 






lUUlT, :«: 


1 




1 

... ... 1 :^^ ^ ^ 








1 




1 




x,i.,:_.).j..j.„ 




' 




1 


" ' ' ' ' 



The UNIT control statement specifies from which logical unit, 1-49, 60, or 62, the 
input records will be read. This unit will be referenced for any subsequent input 
requests until another UNIT control statement changes the specification. 

This statement just specifies the unit. The input record is not read until a control 
statement specifying mode (e. g. REL) is encountered. 
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The REL Control Statement 



FORM: 



LOCATION 


[]P£RATION,M0OIFIERS 


ADDRESS FIELD 




COMMENTS 






1 




1 






tMEL ..n.a.n.i 


1 




1 




i i r 1 i 1 




1 

! 




1 

1. A . :. i.^.. 


-i. ■ ^ ; ^-- .i._i.„ ^.,.i.,-L_.La... ■ ...i-.i.-j.. 


^...^..L_L_.„^,. 



The REL control statement is one of several control statements that specify the mode 
of input. REL specifies that the information on a logical unit is a single subroutine in 
relocatable binary card form and is to be written as one record on the new library in 
a condensed relocatable form. 
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If the programmer understands the previous control statements, he is ready to write 
a program that will transfer his updated SQRTF subroutine from logical unit 62 to the 
library tape. He can do so by the following coding: 



fSe smeiJc 






LOCATION 



%mxiL*:X 



'jKepLAce 



^uMir,^2 



')Ae L,sc^ ^rf 



jAJi j r s.M, 



II 



DPERffMNJMHFeS ADDRESS FIELD 



COMMENTS 



O-L-rM 



1-^, 



This program will; 



1. Copy the source library up to record 47. 

2. Transfer the relocatable binary subroutine (SQRTF) from logical unit 62. 

3. Skip the old record 47 and copy the rest of the library. 
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PREPARING A LIBRARY TAPE 

Besides editing an existing library tape, it may become necessary at times to prepare 
a new library tape. A new library can be formed by extracting information from an 
existing library and including records from other logical units. 

In order to extract records from existing libraries to form a new library, two new 
control statements must be defined. 

1. PREPARE 

2. EXTRACT 
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The PREPARE Control Statement 



FORM: 




DPER/(rWN.MODIFIERS 



ADDRESS FIELD 



SkAJsliLrkSLaeA^jiALmiSii^-±^i^l...uL. 



COMMENTS 



The PREPARE control statement is read by PRELIB and is one of the three possible 
statements following the PRELIB statement. PREPARE instructs PRELIB to prepare 
a new library from the source libraries. 

NAMEl designates the name of the new library. If * is specified, the new library will 
have the same name as the current system library. NAME2, NAMES, etc. , designates 
the names of library tapes from which information will be taken to form the new library. 
An * for one of these names means that the current system library can be used as a 
source. 



1-92 



FORM: 



The EXTRACT Control Statement 



LOCATION 



QPERATK)N,M0OiflERS 



ADDRESS FIELD 



COMMENTS 



U^AicJL 



i-Cn-^ i/i-CeiS^ ^ 1 ^ il_ 



The EXTRACT control statement specifies the records on source library tapes which 
are to be transferred to the new tape. The records will be transferred from logical 
unit u (*, 70, 72-79) onto the new tape, unit 71 (logical unit 71 is always considered 
the new library tape). A record may be referred to by either its name or its number 
as found in the table of contents. 
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A job to prepare a new library tape from two existing ones might look like the following; 



l3M 



LOCATION [)PERATION,MQOiFeS 



ueMc f^ 



AiSM 












n 






ADDRESS FIELD 



COMMENTS 



]t(^jLzQ\). 



*LL-Ak) 



. L._. .^ 






This job effectively replaces the old library with the exception that it has a new COBOL 
compiler. 

1. A new Scope system library is prepared from the current library and LIBl. 
It has the same name as the current library. 

2. Records 1-16 are copied from current library. 

3. The COBOL compiler is copied from LIBl (72). 

4. The rest of the current library is copied. 

J. nis may give some insights on how to begin preparing or editing a library tape. Much 
more can be included as the reader has use for it. For more information read the 
"Library Preparation and Maintenance" section (P. 7-1) of the 3600 Scope Reference 
Manual (Pub. No. 60053300). 
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SECTION II 
OUTPUT LISTINGS 

This section contains the computer output listings generated from the example problems 
given in each of the three volumes. The purpose of these listings is to show how the 
subprograms are assembled. 

The coding on the listing is taken from the coding on the coding sheet for each problem. 
The only difference is that a few block storage reserve (BSS) instructions may have 
been added at the end of each subprogram. This is to prevent a diagnostic resulting 
from an undefined symbol. 
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(5.11 EVALUATE 















lOENT 


tKALUATE 


PHUtiHAM 


LENGTH 






00006 






enthv points 




fvaljate 


OOOOO 


















ENTRY 


EVALUATE 


OOOOO 








EVALUATE 


«SS 


1 


ooool 


IS 





P00003 






lOa 


A 




2« 





P00004 






iiUI 


13 


00002 


1> 





P00005 






uUQ 


c; 




75 





POOOOU 






SLJ 


tVALUATE 


00003 








A 




hSS 


1 


0000« 








B 




■ISS 


1 


00005 








c 




ISS 

END 


1 



03/20/67 En PAGE NO, 
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AB 

Aa • C 



00004 SYMBOLS 



15,1) 



lOENT 
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VOLUME T-SECTION UI.PH^8UEM 6 



PHOGMAM 


LtNSTH 




0015b 






ENTHY POINTS 




TEST 


OOOOO 
















ENTRY 


TEST 


OOOOO 








TEST 


hSS 


i 


00001 


50 


1 


OOOOO 




ENI 


Oil 




10 





OOOOO 




tNA 





00002 


14 

50 


1 




P00012 

OOOOO 


HEPEAT 


ADD 


SCORES,! 


00003 


54 


1 


00)43 




ISK 


•»9,l 




75 





P00002 




SLJ 


xEPEAT 


0000* 


04 





OOOOO 




ENQ 


u 




25 





P00007 




UVI 


JECIOO 


oooos 


20 





poooio 




STA 


AVE 




21 





POOOU 




sTa 


rtEM 


00006 


75 

bo 




a 


POOOOU 
OOOOO 




SLJ 


lesT 


00007 


00 
00 


u 




OOOOO 
00144 


OECIOO 


oec 


100 


00010 








AVE 


HbS 


i 


00011 








REM 


BSS 


i 


00012 








SCORES 


HSS 
END 


100 



PREPARE FOR DIVIDE 



00006 SYMBOLS 



2-2 



Ib.n INTEHEbT 



IuenT 



PHOfiHUM LENGTH J344S 

ENTHY points INTEWtSr 00005 



00000 

00001 

00002 

00003 

0000« 

00005 
OOOOi 

U0007 

00010 

UOOU 

00012 

00013 

0001» 

00015 

00016 
00017 
00020 
00021 
00022 
00023 
0002* 
0002S 



00 
00 
00 
00 

00 

00 
00 
00 
00 
00 

So 

10 
64 
75 
72 
75 

So 

10 
6<> 
75 
72 
75 
50 
10 
6« 
75 
72 
75 

So 

10 
64 
75 
72 
75 
bo 
10 
64 
75 
72 
75 



00000 

ooooo 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 

23420 

00001 

P00025 

POOOU 

POOOOO 

P00007 

23420 

00002 

P00025 

POOOU 

POOOOl 

POOOU 

23420 

00003 

P00025 

P00017 

P00002 

P00014 

23420 

00004 

P0002b 

P00022 

P00003 

P00017 

23420 

00005 

P0002b 

POOOOb 

P00004 

P00022 



SALES 

Interest 



00014 SYMBOLS 



tNTKY 
DEC 

oEC 

uEC 

DEC 

uEC 

HSS 
ENI 
tNt 

tus 

SLJ 
H»0 
SLJ 
ENI 
EN4 
EQ5 
SLJ 
HAO 
SLJ 
ENI 
ENa 
EUS 
SLJ 
HAO 
SLJ 
EN! 
ENt 
EQS 
SLJ 
HAS 
SLJ 
ENI 
ENA 
EUS 
SLJ 
MAO 
SLJ 
BSS 
END 



INTEREST 
INTEBEST 



10000.1 

1 

ivUM.l 



lOOOOtl 

2 
"ilJMfl 



10000)1 
J 

•<JM)1 

J 

l-IBE 

L 

lOOOOil 

4 

nUM.l 

t 

uanaASE 

J 

lOOOOil 

b 

iMUMiI 

INTEREST 

SALES 
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pkestorf zeros 

AT THESF 
LOCAtIOms 



search fob doctor 

NO MORE doctors 
FOUND A doctor 

conTinuf search 



lOQOO 



search for la«ye8S 
NO more lawyers 

FOUNO A LAWYER 
CONTINUF SEARCH 



SEAHCH FOR FIREMEN 
NO MORE FIREMEN 
FOUND A FIREMEN 
CONTINUF SEAHCH 



SEARCH FOR RARBASEHEN 
NO MORE SARIASEMEN 
FOUND A 8ARRA6EMAN 
CONTINUF SEARCH 



SEARCH FOR SALESMEN 
NO MORE SALESMEN 
FOUND A SALESMAN 
CONTINUF SEARCH 



ENTRANT 
















03/20/6? ED 














lOENT 


tNTHANT 




VOLUME T-SECTION 


PHOGRAM 


LENGTH 






00012 










ENTRY POINTS 




ENTRANT 




00002 






















ENTRY 


ENTRANT 






OOOOO 








c 




hSS 


1 






00001 


11 


1 


11111 


CHECK 


OCT 


UlUlUlUUlll 






U 


1 


11111 














00002 








ENTRANT 


BSS 


I 






00003 


37 





POOOOl 






SSH 


1-HECK 




ISI. 2Nn, OB 3RD 




75 





P00006 






SLJ 


»PL8 




1ST OR PND 


00004 


12 





poooio 






LUA 


A 




3R0 




15 





POOOU 






508 


a 






00005 


20 





POOOOO 






STA 


L 




C ■ A - R 




75 





P00002 






SLJ 


tNTHANT 






00006 


12 





PODOIU 


APLB 


LUA 


A 








14 





POOOU 






400 


a 






00007 


20 





POOOOO 






STA 


C 




c • A . n 




75 





P00002 






SLJ 


ENTRANT 






00010 








A 




bSS 


1 






00011 








B 




BSS 

ENO 


1 







00006 SYMBOLS 



2-3 



(5.11 ENIHEXAM 













lOENT 


CNTREXAM 


PXUGRIM 


LtNST 


M 




USIS 






ENfHY POINTS 




ENTREAA 


^ 00001 
















l-NTHY 


cNTrtEXAM 


00000 








HANK 


hss 


i 


00001 








LNTREXAH 


HSS 


1 


00002 


04 





00777 




EMa 


(778 




0«> 





0003U 




ULS 


«;» 


00003 


♦ ♦ 


I 


POOOOS 




LUL 


INFOHM.l 




01 





00030 




HAS 


^4 


00004 


20 





POOOOO 




sTA 


NANS 




75 





POOOOl 




SLJ 


tNFPEXAH 


00005 








INFOHM 


rtSS 

tNO 


3000 
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OCTAU 777 



00003 SYM30LS 



(5.1) SEriOENCE 
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hSS 
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00001 
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P00020 
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HEPEAT 


NtUF 
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00003 
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SLJ 
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00005 
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SLJ 
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END 
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12 
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LDA 
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ass 
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HSS 
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LUNl 
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POOOU 
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STA 
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00765 

00766 

00767 

00770 
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00774 

00775 

00776 

00777 
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01001 

01002 

01003 

01004 

01005 

01006 
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50 
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50 
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62 
21 
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20 
51 
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20 
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1 
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4 
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POOOOO 
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EQ 
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TAXABLE 


HSS 
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BSS 
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ENI 
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50 


2 
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ENI 
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23A22 


12 

50 
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LOA 


SMPLOY.l 


23*23 
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60 
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P23*26 




NBJP 
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5* 


1 
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NEXT 
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SO 
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jAX 
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A 
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LAST 
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63 

6* 
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8 
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SLJ 
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20 


2 
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ENTER 


STA 
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51 


2 
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H2 
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10 
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00 
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lOTH 
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8 CHAR PER 
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10 
50 
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ENA 


77B 
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INPUT 


BSS 


1 
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00 






POOOU 
02003 




CONN 


0>2t3.REJ 
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7» 
00 


1 




P00013 
00003 




EXTF 
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7* 
00 


1 




POOOU 
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EXTF 
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BCD FORMAT 


00020 
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BSS 
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TEST 
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ENTRY 


TEST 
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TEST 


BSS 
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00001 


0* 




00000 




ENQ 
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00000 




ENI 


0<1 
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12 




P00007 


NEXT 
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22 




P00004 




AJPlMI 


MlNUS 


00Q03 


21 
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P00007 
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PLUS 


STQ 


rASti 


0000* 
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20 




O0020 
P00007 


MINUS 


ST»,C« 
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5* 




23*17 
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TEMP 
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TRANSFER 
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SAU 
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01 
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ARS 


2* 
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P00006 




SAL 
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P0009U 
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TEMP 
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OOOOO 




LIL 
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55 
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CHECKCNT 
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TRANSMITil 
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0.1 
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2 
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ENX 


Ui2 
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00000 
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Loa 
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ENA 
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11 





77760 
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5* 
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0000« 


55 
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dSS 
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00 
00 
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CONl 


DEC 
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CUN2 


DEC 
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BSS 
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STa 
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ENQ 


-0 


00011 
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POOOOO 


OIV 
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